home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
misc
/
wclass20.zip
/
ADA1.SCT
< prev
next >
Wrap
Text File
|
1995-01-16
|
3KB
|
81 lines
[with AGGREGATION_ONE_CLASS$s;]
[with ASSOCIATION_ONE_CLASS$s;]
[with AGGREGATION_MANY_CLASS$s;]
[with ASSOCIATION_MANY_CLASS$s;]
package CLASS$s is
type CLASS is private;
procedure initialize ( The_$CLASS : in out CLASS ;
[ a$ATTRIBUTE_NAME : in ATTRIBUTE_TYPE ;DELETE_LAST_SYMBOL] );
[-- In Input Parameters: PASCAL_OPERATION_PARAMETERS
-- Out Output Parameter Type: OPERATION_RETURN_TYPE
procedure OPERATION_NAME ADA_OPERATION_PARAMETERS ;
]
[ --Get accessor function for ATTRIBUTE_NAME
function get_$ATTRIBUTE_NAME ( The_$CLASS : in CLASS ) return ATTRIBUTE_TYPE;
]
[ --Set accessor procedure for ATTRIBUTE_NAME
procedure set_$ATTRIBUTE_NAME ( The_$CLASS : in out CLASS ;
a$ATTRIBUTE_NAME : in ATTRIBUTE_TYPE );
]
--OPERATION_EXCEPTION_NAME : exception; --update as required
private
[type ASSOCIATION_MANY_CLASS$_Array is array (INTEGER range 1..6) of ASSOCIATION_MANY_CLASS$s.ASSOCIATION_MANY_CLASS; ]
[type AGGREGATION_MANY_CLASS$_Array is array (INTEGER range 1..6) of AGGREGATION_MANY_CLASS$s.AGGREGATION_MANY_CLASS ; ]
type CLASS is record
[ ATTRIBUTE_NAME : ATTRIBUTE_TYPE := ATTRIBUTE_INITIAL_VALUE; ]
[ ASSOCIATION_ONE_NAME : ASSOCIATION_ONE_CLASS$s.ASSOCIATION_ONE_CLASS ; ]
[ AGGREGATION_ONE_NAME : AGGREGATION_ONE_CLASS$s.AGGREGATION_ONE_CLASS ; ]
[ ASSOCIATION_MANY_NAME : ASSOCIATION_MANY_CLASS$_Array ; ]
[ AGGREGATION_MANY_NAME : AGGREGATION_MANY_CLASS$_Array ; ]
end record;
end CLASS$s;
----------------------------------------------------------------------------------
package body CLASS$s is
procedure initialize ( The_$CLASS : in out CLASS ;
[ a$ATTRIBUTE_NAME : in ATTRIBUTE_TYPE ;DELETE_LAST_SYMBOL] ) is
begin
[The_$CLASS.ATTRIBUTE_NAME := a$ATTRIBUTE_NAME ; ]
end initialize;
[----------------------------------------------------------------------------------
--Get accessor function for ATTRIBUTE_NAME
function get_$ATTRIBUTE_NAME ( The_$CLASS : in CLASS ) return ATTRIBUTE_TYPE is
begin
return The_$CLASS.ATTRIBUTE_NAME;
end get_$ATTRIBUTE_NAME;
]
[----------------------------------------------------------------------------------
--Set accessor procedure for ATTRIBUTE_NAME
procedure set_$ATTRIBUTE_NAME ( The_$CLASS : in out CLASS ;
a$ATTRIBUTE_NAME : in ATTRIBUTE_TYPE ) is
begin
The_$CLASS.ATTRIBUTE_NAME := a$ATTRIBUTE_NAME;
end set_$ATTRIBUTE_NAME;
]
[---------------------------------------------------------------------------------
-- In Input Parameters: PASCAL_OPERATION_PARAMETERS
-- Out Output Parameter Type: OPERATION_RETURN_TYPE
procedure OPERATION_NAME ADA_OPERATION_PARAMETERS is
begin
null;
end OPERATION_NAME;
]
end CLASS$s;